home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / TUNES DEMO 3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  39 lines
  1. 10  REM  **********7.18.84********  
  2. 11  REM  *   T.U.N.E.S  DEMO 3   *   
  3. 12  REM  * BY S. SCOTT ZIMMERMAN *
  4. 13  REM  *  COPYRIGHT (C)  1983  *
  5. 14  REM  *  BY MICROSPARC, INC.  *
  6. 15  REM  *  LINCOLN, MA.  01773  *
  7. 16  REM  *************************
  8. 120  TEXT : HOME : VTAB 2: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **"
  9. 125  IF  PEEK(37403) = 169  AND  PEEK(38385) = 0  AND  PEEK(1014) = 84  AND  PEEK(1015) = 146  THEN 160: REM   CHECK IF TUNES IS IN PLACE    
  10. 140  PRINT  CHR$(4);"BRUN TUNES"
  11. 160  PRINT 
  12. 180  VTAB 6:A$ = "MY FAVORITE THINGS": HTAB (41 - LEN(A$))/2: INVERSE : PRINT A$: NORMAL 
  13. 200  PRINT : PRINT :A$ = "PROGRAMMED BY": HTAB (41 - LEN(A$))/2: PRINT A$:A$ = "S. SCOTT ZIMMERMAN": PRINT : HTAB (41 - LEN(A$))/2: PRINT A$
  14. 220  PRINT : PRINT :A$ = "WITH": HTAB (41 - LEN(A$))/2: PRINT A$:A$ = "T.U.N.E.S.": PRINT : HTAB (41 - LEN(A$))/2: INVERSE : PRINT A$: NORMAL 
  15. 240  PRINT :A$ = "TONE UTILITY AND NOTE ENCODING SYSTEM": HTAB (41 - LEN(A$))/2: PRINT A$
  16. 260 X = 125: VTAB 23: CALL  -868: PRINT "WHAT TEMPO (IN BEATS/MIN)? ";X;: POKE 36,( PEEK(36) -3): INPUT "";X$: VTAB 23: HTAB 1: CALL  -868
  17. 280  IF X$ = ""  THEN 380
  18. 300 X =  VAL(X$)
  19. 320  IF X >255  THEN X = 255
  20. 340  IF X <61  THEN X = 61
  21. 360  REM  <CTRL-M><CTRL-M><CTRL-M>NOTES TO "MY FAVORITE THINGS":<CTRL-M><CTRL-M><CTRL-M>
  22. 380 TEMPO = X: & BEL4TTEMPO: & EES: & : & ETL: & BEL: & AES: & 
  23. 400  & GE3L: & CE4S: & : & CTL: & GE3LT(TEMPO -30): & F#EST(TEMPO -60): & 
  24. 420  & EEL3TTEMPO: & BE4S: & : & BTL: & F#E3: & EES: & : & BEL: & EES: & : & F#EL: & E: & R: & EEL: & BE4S: & : & BT: & F#E3L: & EES: & : & BEL: & EES: & : & F#EL: & E: & R
  25. 440  & EEL: & BE4: & A: & EE3: & F#: & D: & : & A4: & G3: & CQ.
  26. 460  & BE: & C: & D: & E: & F#: & G: & AE4: & B: & A: & D#Q.3
  27. 480  & A#T2L: & BE: & EEP4: & G: & A#T2L: & BE: & EEP4: & G: & EEL3: & BE4S: & : & BTL: & F#E3: & EES: & : & BEL: & EES: & : & F#EL: & E: & R
  28. 500  & EEL: & BE4S: & : & F#E3L: & EES: & : & BEL: & EES: & : & F#EL: & E: & R
  29. 520  & E: & B4: & A: & E3: & F#: & D: & : & A4: & G3: & CQ.: & BE: & C: & D: & E: & F#: & G: & A4: & A#: & B: & CHP
  30. 540  & RE: & BE4LS: & : & BQL: & EE3: & R: & AE4S: & : & AQL: & D#E3: & R: & GES: & : & GQL: & BE: & EHHE
  31. 560  & EE: & : & F#: & E: & F#: & E: & F#: & G: & A4: & G3: & AQ4: & GE3: & BE4: & C: & B: & CEL
  32. 580  & BS3LP: & C: & C#: & D: & E!Q.: & BQ.L4: & GQ.3HQ.HQ.: & R
  33. 600  REM <CTRL-M><CTRL-M>     END OF 'MY FAVORITE THINGS'<CTRL-M><CTRL-M>
  34. 620  VTAB 23: CALL  -868: PRINT "DO YOU WANT TO HEAR IT AGAIN? (Y/N)"
  35. 640  VTAB 23: HTAB 37: INVERSE : PRINT " ";: & CT5ST255: & RW: HTAB 37: NORMAL : PRINT " ": IF  PEEK( -16384) <128  THEN  & GT4: & RW: IF  PEEK( -16384) <128  THEN 640
  36. 660 X =  PEEK( -16384): POKE  -16368,0
  37. 680  IF X = 217  THEN 260
  38. 700  IF X = 206  THEN  END 
  39. 720  GOTO 640